home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d15
/
maximo_1.arc
/
TXT.ARC
/
MGR.TXT
< prev
next >
Wrap
Text File
|
1991-08-20
|
3KB
|
125 lines
;
; MGR -- (c) 1990 Chris Butler
;
;VIDEO M
set all off
goto top
all:
set all on
top:
global boxllx 0 ; mod 8 = 0
global boxlly 0
global boxw 488
global boxh 115
set h 17 ; key height
set keycolor 14 ; keytop color in convbox = 14 (yellow)
set txtboxclr 14;
cload max.clp 30 1 0 ; max's face
tran on 15
cload cover.clp 32 0 1
merge toursubs.txt
pat:
pload palette1.pcx
set entrypoint "entry_12"
palette 1
pfree 1
cload eric.clp 31 1 0
set boxtitle "Max with the Plant Manager"
call steps.txt mgr
label602:
newbgrnd "ericoffa.pcx" 80 0 0 0 100 5
;mouse on
set str1 "Hi, Max! I'm on hold. Please come in and tell me how we're doing "
set str2 "on the Line 1 cartoner problem."
say 0 @str1 @str2
waitkey 50
label1a:
getcmd
if @0<>"backup" label603
noise 500 200 50
waitkey 100
goto label1a
label603:
set str1 "The repair is all set, Patrick. Let me show you the closed work order"
set str2 " in MAXIMO."
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label602
label604:
newbgrnd "wohist.pcx" 80 0 0 0 200 9 ;
set str1 "Boy, that's great Max. I wonder if that bearing is going to give us "
set str2 "trouble anywhere else in the plant?"
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label603
label605:
set str1 "Let's look in the Failure Analysis History and see."
set str2 " "
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label604
label606:
newbgrnd "failure.pcx" 80 0 1 0 200 9 ; 35.pcx
set str1 "Lots of bearing-related problems, Patrick. We should probably refit "
set str2 "all of those cartoners. I'll take care of it right away."
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label605
label607:
set str1 "Boy that MAXIMO system really is great, Max. Our production "
set str2 "numbers are up 10% as a result of lower downtime!"
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label606
label608:
newbgrnd "ericoffa.pcx" 80 0 1 0 100 9
set str1 "And, Patrick, you wouldn't believe how much easier my life is now."
set str2 " "
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label607
label609:
set str1 "Actually Max I would believe it. I've watched you knock 5 strokes off"
set str2 " your golf handicap this year! Are we still on for Saturday morning?"
say 0 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label608
label610:
set str1 "Sounds good to me!"
set str2 ""
say 1 @str1 @str2
waitkey 50
getcmd
if @0=="backup" label609
;mouse off
if @all==on
link udrive.txt all
else
link master.txt entry_12
endif
; END PLANT MANAGER